home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / RESEARCH.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  3.6 KB  |  159 lines
  1.       CLEAR
  2.       LOCATE 1,0
  3.       TRANSMIT "C DIAL"
  4.       TRANSMIT S2
  5.       TRANSMIT "/"
  6.       TRANSMIT S9
  7.       TRANSMIT ","
  8.       TRANSMIT S8
  9.       TRANSMIT "!"
  10.       WAITFOR "="
  11.       TRANSMIT S7
  12.       TRANSMIT "!"
  13.       CLEAR
  14.       RGET S5
  15.       RGET S5
  16.       LOCATE 1,0
  17.       RGET S5
  18.       PAUSE 1
  19.  
  20.       FIND S5 "CONNECT"
  21.  
  22.       IF NOT FOUND
  23.          CLEAR
  24.          LOCATE 1,0
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2
  27.          CLEAR
  28.          LOCATE 1,0
  29.          EXECUTE "INTRO.CMD"
  30.       ENDIF
  31.  
  32.  
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡RESEARCH TRIANGLE PARK╞═╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - Mists of Avalon      ║"
  39.    MESSAGE "                         ║  2 - RBBS PC Raleigh      ║"
  40.    MESSAGE "                         ║  3 - RBBS PC RAL-Net      ║"
  41.    MESSAGE "                         ║  4 - Doctor's Office      ║"
  42.    MESSAGE "                         ║  5 - GTS RBBS             ║"
  43.    MESSAGE "                         ║  6 - The Third Wave       ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - Return to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.    LOCATE 17,40
  53.    MESSAGE  " "
  54.    LOCATE 17,40
  55.    GET S5 1
  56.  
  57.    SWITCH S5
  58.  
  59.       CASE "1"
  60.          ASSIGN S3 "Mists of Avalon"
  61.          ASSIGN S4 "7566151"
  62.       ENDCASE
  63.  
  64.       CASE "2"
  65.          ASSIGN S3 "RBBS PC Raleigh"
  66.          ASSIGN S4 "8474625"
  67.       ENDCASE
  68.  
  69.       CASE "3"
  70.          ASSIGN S3 "RBBS PC RAL-Net"
  71.          ASSIGN S4 "8722618"
  72.       ENDCASE
  73.  
  74.       CASE "4"
  75.          ASSIGN S3 "The Doctor's Office"
  76.          ASSIGN S4 "2353656"
  77.       ENDCASE
  78.  
  79.       CASE "5"
  80.          ASSIGN S3 "GTS RBBS"
  81.          ASSIGN S4 "4790043"
  82.       ENDCASE
  83.  
  84.       CASE "6"
  85.          ASSIGN S3 "The Third Wave"
  86.          ASSIGN S4 "5567975"
  87.       ENDCASE
  88.  
  89.       CASE "M"
  90.          CLEAR
  91.          LOCATE 5,20
  92.          MESSAGE "NUMBER TO DIAL:"
  93.          LOCATE 5,36
  94.          ASSIGN S3 "MANUAL DIAL"
  95.          GET S4
  96.       ENDCASE
  97.  
  98.       CASE "Q"
  99.          CLEAR
  100.          TRANSMIT "!@!"
  101.          WAITFOR "@"
  102.          TRANSMIT "D!"
  103.          WAITFOR "@"
  104.          CLEAR
  105.          LOCATE 1,0
  106.          PAUSE 1
  107.          EXECUTE "INTRO.CMD"
  108.       ENDCASE
  109.  
  110.       DEFAULT
  111.          MESSAGE "^G"
  112.          LOCATE 17,40
  113.          GOTO BEGIN
  114.       ENDCASE
  115.  
  116. ENDSWITCH
  117.       CLEAR
  118.       LOCATE 1,0
  119.       MESSAGE "CONNECTED TO PCP"
  120.       MESSAGE S1
  121.       MESSAGE "DIALING"
  122.       MESSAGE S3
  123.  
  124.  
  125.       TRANSMIT "ATZ!"
  126.       WAITFOR "OK" 10
  127.       TRANSMIT "ATDT"
  128.       TRANSMIT S4
  129.       TRANSMIT "!"
  130.       RGET S0
  131.       RGET S0 80 40
  132.       RGET S0
  133.       PAUSE 2
  134.  
  135.       FIND S0 "BUSY"
  136.       IF FOUND
  137.          CLEAR
  138.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  139.          PAUSE 2
  140.          CLEAR
  141.          LOCATE 1,0
  142.          GOTO BEGIN
  143.       ENDIF
  144.  
  145.       FIND S0 "CONNECT"
  146.       IF FOUND
  147.          SET PARITY NONE
  148.          SET DATABITS 8
  149.       ELSE
  150.          CLEAR
  151.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  152.          PAUSE 2
  153.          CLEAR
  154.          LOCATE 1,0
  155.          GOTO BEGIN
  156.       ENDIF
  157.  
  158.       ALARM 1
  159.       EXIT